home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / cnet / cnet_wof.lha / InstallWOF < prev    next >
Text File  |  1998-01-04  |  18KB  |  436 lines
  1. /**************************************************************************\
  2.       $VER: WOF Install, v6.52 (3-Jan-97) by Dotoran of Frontiers!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .;a=random(,,time("s"))
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  8. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  9.  
  10. if left(upper(fp),3)~="RAM" then do;se "Reloading to RAM:..."
  11.   call setclip('wofinstall',df);tr "#4copy "df"InstallWOF RAM:}"
  12.   tr "#0ram:InstallWOF}";exit;end;else df=getclip('wofinstall')
  13.  
  14. changewhere "InstallWOF";key=" <KEY>g1";gu 23;port=result;lha="C:LHA"
  15. mview="SYS:UTILITIES/MULTIVIEW";guide="SYS:UTILITIES/AMIGAGUIDE"
  16. /* <gu 2407202;oc=result> is the Old Default System Color */
  17. se "f1c7";gu 2407202;oc=result;setobject "7";putuser 2407202
  18.  
  19.  
  20. CHECKARC:
  21.   if ~exists(df"wof.lha") then do
  22.     se "n1   To correctly install and/or update Wheel of Fortune, this "
  23.     se "Install script MUST be located in the SAME path as the included "
  24.     se "`wof.lha' archive. Presently, I could NOT find `"df"wof.lha' on "
  25.     se "your system. Please remedy this situation, then try running this "
  26.     se "script again!"key;exit;end
  27.  
  28. CHECKLHA:
  29.   if ~exists(lha) then do
  30.     se "n1   This installation procedure makes use of your LHA program, "
  31.     tr "however I could not locate it at `"lha"'...n1"
  32.     se "Please enter full PATH/FILENAME to your `LHA' program below:"
  33.     se "n1>L1305640#"lha"}I16388 40}";gu 70;lha=result;signal CHECKLHA
  34.   end
  35.  
  36. CHECKGUIDE:
  37.   if ~exists(mview) & ~exists(guide) then do
  38.     se "n1   This installation procedure makes use of either the MultiView "
  39.     se "or the AmigaGuide file for automatic guide viewing at the end of the "
  40.     se "script, however I could NOT locate either of these programs in your "
  41.     tr "`SYS:UTILITIES/' directory...n1"
  42.     se "Please enter full PATH/FILENAME to one of these files below:"
  43.     se "n1>L1305640#"mview"}I16388 40}";gu 70;a=result
  44.     if find(upper(a),"MULTI")>0 then mview=a
  45.     if find(upper(a),"AMIGA")>0 then guide=a;signal CHECKGUIDE
  46.   end
  47.  
  48. view=exists(mview)*1;if view=0 then view=exists(guide)*2
  49.  
  50. tr 'f1@4n1The Wheel of Fortune, v6.52 Install/Update Script:n1'
  51.  
  52. se '   Hello and welcome to Wheel of Fortune! This script allows you to '
  53. se 'do one of the following. Please choose the option which best suits '
  54. tr 'your present needs:n1'
  55.  
  56. tr '1. Update  WOF, v6.46 (or v6.46a) to v6.52...n1'
  57. tr '2. Install WOF, v6.52 for the first time.....n1'
  58.  
  59. se 'Use which option? [ABORT]: ';gc;a=result
  60. if a<1 | a>2 | datatype(a,'n')=0 then do;tr 'ABORT';signal QUIT;end
  61.  
  62. if a=1 then do;tr 'Update';signal UPDATE;end
  63. if a=2 then do;tr 'Install';signal INSTALL;end
  64.  
  65. UPDATE:
  66.   se "n1   You have just selected to update The Wheel of Fortune, v6.46(a) "
  67.   se "to the new Wheel of Fortune, v6.52. Is this correct? [Yes]: "
  68.   gc;a=result;if a="N" then do;tr "No.";signal CHECKLHA;end;else tr "Yes!"
  69. UPDATE1:
  70.   se "n1   Before we begin this update, I need to know WHERE you placed "
  71.   se "the 6.46(a) version of Wheel of Fortune. Please specify it's location "
  72.   tr "below: (Clear the text and press ENTER to Abort)n1"
  73.   se "Enter the path in which you stored Wheel of Fortune, v6.46(a) below:"
  74.   se "n1>L1305640#DOORS:}I16388 40}";gu 70;path=result
  75.   if path="" then do ; tr "Abort" ; signal QUIT ; end
  76.   if ~exists(path"WoFortune") | word(statef(path"WoFortune"),1)~="DIR" then do
  77.     se "n1   I'm sorry, but I could NOT locate the `"path"WoFortune/' "
  78.     tr "directory you specified above. Please check your typing."key
  79.     signal UPDATE1
  80.   end
  81.  
  82.   if index(":/",right(path,1))=0 then path=path"/"
  83.   opath=path"WoFortune/"
  84.  
  85.   if ~exists(opath"Config.Data") then do
  86.     se "n1   Hmmm, I can't seem to find the `"opath"Config.Data' file. Are "
  87.     tr "you SURE you're using Wheel of Fortune, v6.46(a) presently?"key
  88.     signal UPDATE1
  89.   end
  90.  
  91.   call open(f1,opath"Config.Data","r");a=readln(f1);call close(f1)
  92.   if substr(word(a,2),2)<6.46 then do
  93.     se "n1   You are presently using The Wheel of Fortune, "word(a,2)", "
  94.     se "however you NEED to be using v6.46(or v6.46a) before you'll "
  95.     se "be able to update to The Wheel of Fortune, v6.52. You could also "
  96.     tr "opt to install for the first time. The choice is yours!";signal QUIT
  97.   end
  98.  
  99.   tr "n1Present Wheel of Fortune Setup:n1"
  100.   asc=exists(opath"Game.ASC");ans=exists(opath"Game.ANS")
  101.   ibm=exists(opath"Game.IBM");reg=exists(opath"Reg.Key")
  102.   se "   Installed Asc Version: "left(word("No Yes",asc+1),10)
  103.   tr "Installed Ans Version: "word("No Yes",ans+1)"n1"
  104.   se "   Installed IBM Version: "left(word("No Yes",ibm+1),10)
  105.   tr "Installed Reg Version: "word("No Yes",reg+1)
  106.  
  107.   if asc+ans+ibm<3 then do
  108.     se "n1   I notice you are not using ALL the modules currently. Do you "
  109.     se "wish to only update the modules you are currently using? [No]: "
  110.     gc;a=result;if a="Y" then do;tr "Yes!";update=1;end
  111.     else do;tr "No.";update=2;end
  112.   end
  113.   else update=1
  114.  
  115.   se "n1   In order to be absolutely sure this update is successful, I'll "
  116.   se "rename your existing `"opath"' directory as `"strip(opath,'t','/')
  117.   se "646/'. In the event this update does NOT work for you, you'll be "
  118.   se "able to revert back to the earlier version until a fix can be found."
  119.  
  120.   if exists(strip(opath,'t','/')"646") then
  121.     address command "rename "strip(opath,'t','/')"646 "strip(opath,'t','/')"646(old)"
  122.   address command "rename "strip(opath,'t','/')" "strip(opath,'t','/')"646"
  123.  
  124.   se key"n1";call UNPACKWOF;opath=strip(opath,'t','/')"646/";signal UPDATE_ENTRY
  125.  
  126. UPDATE2:
  127.   se "   Various internal directory changes have been made in this new "
  128.   se "version of Wheel of Fortune. A new `Texts/' directory now exists in "
  129.   se "the `"path"' directory that will house all the textual data files "
  130.   tr "used in the game. Copying over your current files now..."key
  131.  
  132.   se "n1Bankers..."
  133.     if exists(opath"Bankers") then 
  134.       tr "#4copy "opath"Bankers "path"Texts/Bankers}ok"
  135.       else tr "missing."
  136.   se "BMillionaires..."
  137.     if exists(opath"BMillionaires") then
  138.       tr "#4copy "opath"BMillionaires "path"Texts/BMillionaires}ok"
  139.       else tr "missing."
  140.   se "BWinner..."
  141.     if exists(opath"BWinner") then
  142.       tr "#4copy "opath"BWinner "path"Texts/BWinner}ok"
  143.       else tr "missing."
  144.   se "BWinners..."
  145.     if exists(opath"BWinners") then
  146.       tr "#4copy "opath"BWinners "path"Texts/BWinners}ok"
  147.       else tr "missing."
  148.   se "LastPlayer..."
  149.     if exists(opath"LastPlayer") then
  150.       tr "#4copy "opath"LastPlayer "path"Texts/LastPlayer}ok"
  151.       else tr "missing."
  152.   se "LastReset..."
  153.     if exists(opath"LastReset") then
  154.       tr "#4copy "opath"LastReset "path"Texts/LastReset}ok"
  155.       else tr "missing."
  156.   lv="ASC ANS IBM" ; lt="OLD NEW"
  157.   do i=1 to 3
  158.     do j=1 to 2
  159.       ln="Log."word(lt,j)"."word(lv,i) ; se ln"..."
  160.       if exists(opath||ln) then tr "#4copy "opath||ln" "path"Texts/"ln"}ok"
  161.       else tr "missing."
  162.     end j
  163.   end i
  164.   se "Millionaires..."
  165.     if exists(opath"Millionaires") then
  166.       tr "#4copy "opath"Millionaires "path"Texts/Millionaires}ok"
  167.       else tr "missing."
  168.   se "NewPuz..."
  169.     if exists(opath"NewPuz") then
  170.       tr "#4copy "opath"NewPuz "path"Texts/NewPuz}ok"
  171.       else tr "missing."
  172.   se "Stats..."
  173.     if exists(opath"Stats") then
  174.       tr "#4copy "opath"Stats "path"Texts/Stats}ok"
  175.       else tr "missing."
  176.   se "Winner..."
  177.     if exists(opath"Winner") then
  178.       tr "#4copy "opath"Winner "path"Texts/Winner}ok"
  179.       else tr "missing."
  180.   se "Winners..."
  181.     if exists(opath"Winners") then
  182.       tr "#4copy "opath"Winners "path"Texts/Winners}ok"
  183.       else tr "missing."
  184.  
  185.   se "n1   The `GameData', `Players', and `Config.Data' files have all "
  186.   se "received additions in this version as well. Also, the `Config.Data' "
  187.   se "file has been renamed `!Settings' and sits in the `"path"' directory, "
  188.   se "instead of inside the `"path"Texts/' directory. Converting these "
  189.   tr "files now..."ke